home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / misc / edu / amigaw51.lha / AmigaWorld / InstallHD < prev    next >
Text File  |  1997-04-17  |  18KB  |  482 lines
  1. ;Polyglotte AmigaWorld-Installation
  2. ;für Installer 1.24 oder besser
  3.  
  4. (complete 0)
  5.  
  6. (set AWlng0
  7.      (askchoice
  8.           (prompt "Please choose a language for the installation")
  9.           (help @askchoice-help)
  10.           (choices "Deutsch"
  11.                    "English"
  12.                    "Français")
  13.           (default 1)
  14.      )
  15. )
  16.  
  17. (if (= AWlng0 0) (set @language "deutsch") )
  18. (if (= AWlng0 1) (set @language "english") )
  19. (if (= AWlng0 2) (set @language "français") )
  20.  
  21. (set yes "Yes")
  22. (set no "No")
  23. (set askwhere "Where do you want the \"AmigaWorld\" drawer to be created?")
  24. (set confirmDir "Is it ok to create the drawer right now and start copying files?")
  25. (set asklha (cat "\"lha\" will be used do extract some compressed files. "
  26.                  "Is it ok to copy this program to the AmigaWorld drawer "
  27.                  "for speedup?"))
  28. (set unpackmain "Extracting main program.")
  29. (set asklng1 "Which language are you going to use most of the time?")
  30. (set askcont (cat "The descriptions about continents are not available in "
  31.                   "that language.  Please choose another language for theses "
  32.                   "texts. "))
  33. (set asklng2a "Which other languages beside ")
  34. (set asklng2b " would you like to be available?")
  35. (set copydata "Copying country and output data.")
  36. (set unpackdata "Extracting country and output data.")
  37. (set askdesc "Would you like to install an English description about each country?")
  38. (set unpackdesc "Extracting country descriptions.")
  39. (set askflags "Would you like to install flags?")
  40. (set unpackflags "Extracting flags.")
  41. (set askmaps "Would you like to install maps?")
  42. (set unpackmaps "Extracting maps.")
  43. (set askdox "Which documentation(s) would you like to install?")
  44. (set askdvi (cat "Would you like a DVI version of the documentation to be"
  45.             " installed (for users of TeX only)?"))
  46. (set copydox (cat "You can exclude some files from being installed, "
  47.                   "if you like to:"))
  48. (set unpackdox "Extracting documentation files.")
  49. (set askfont (cat "\"FarawayEyes\" font was designed for displaying the special "
  50.                   "letters of West European, Slavonic, Romanian and Turkish languages. "
  51.                   "Would you like to install this font in your FONTS: drawer?"))
  52. (set askguido "Last not least:  Would you like to install a picture of Dr. Guido Alfani?")
  53. (set askdelete (cat "Do you agree to remove \"lha\" from "
  54.                     "the AmigaWorld drawer now?"))
  55. (set errormsg "Trouble! Panic! Desaster!  Installation aborted.")
  56. (set defLng 2)
  57. (set defDox 2)
  58.  
  59.  
  60. (if (= @language "deutsch")
  61.  (  (set yes "Ja")
  62.     (set no "Nein")
  63.     (set askwhere "Wo soll das Verzeichnis \"AmigaWorld\" angelegt werden?")
  64.     (set confirmDir (cat "Einverstanden, daß das Verzeichnis jetzt erstellt "
  65.                          "und mit dem Kopieren von Dateien begonnen wird?"))
  66.     (set asklha (cat "Zum Dekomprimieren diverser Daten wird \"lha\" benötigt. "
  67.                      "Darf dieses Programm zur Beschleunigung der Installation "
  68.                      "in das AmigaWorld-Verzeichnis kopiert werden?"))
  69.     (set askmagic "Möchten Sie MagicWB-Piktogramme verwenden?")
  70.     (set unpackmain "Das Hauptprogramm wird entpackt.")
  71.     (set asklng1 "Welche Sprache werden Sie hauptsächlich verwenden?")
  72.     (set askcont (cat "Die Beschreibungen der Kontinente sind leider nicht in "
  73.                       "dieser Sprache verfügbar.  Bitte wählen Sie die Sprache, "
  74.                       "in der diese Texte installiert werden sollen. "))
  75.     (set asklng2a "Welche Sprachen möchten Sie außer ")
  76.     (set asklng2b " zur Verfügung haben?")
  77.     (set copydata "Länderdaten und Ausgabetexte werden kopiert.")
  78.     (set unpackdata "Länderdaten und Ausgabetexte werden entpackt.")
  79.     (set askdesc "Möchten Sie die englischen Länderbeschreibungen installieren?")
  80.     (set unpackdesc "Die Länderbeschreibungen werden entpackt.")
  81.     (set askflags "Möchten Sie die Flaggen installieren?")
  82.     (set unpackflags "Die Flaggen werden entpackt.")
  83.     (set askmaps "Möchten Sie die Landkarten installieren?")
  84.     (set unpackmaps "Die Landkarten werden entpackt.")
  85.     (set askdox "Welche Dokumentation(en) möchten Sie installieren?")
  86.     (set askdvi (cat "Möchten Sie die Dokumentation auch im DVI-Format installieren"
  87.                     " (nur für Benutzer von TeX sinnvoll)?"))
  88.     (set copydox (cat "Wenn Sie möchten, können Sie einzelne Dateien "
  89.                       "von der Installation ausschließen:"))
  90.     (set unpackdox "Dokumenationsdateien werden entpackt.")
  91.     (set askfont (cat "Die mitgelieferte \"FarawayEyes\"-Schrift ist gut für die Darstellung "
  92.                       "der westeuropäischen, slawischen, rumänischen und türkischen "
  93.                       "Sonderzeichen geeignet. "
  94.                       "Möchten Sie diese Schrift in das Verzeichnis FONTS: kopieren?"))
  95.     (set askguido "Last not least: Möchten Sie ein Bild von Dr. Guido Alfani installieren?")
  96.     (set askdelete (cat "Sind Sie einverstanden damit, daß \"lha\" nun wieder "
  97.                         "aus dem AmigaWorld-Verzeichnis entfernt wird?"))
  98.     (set errormsg "Die Installation muß abgebrochen werden!")
  99.     (set defLng 1)
  100.     (set defDox 1)
  101. ))
  102.  
  103.  
  104. (if (= @language "français")
  105.  (  (set yes "Oui")
  106.     (set no "Non")
  107.     (set askwhere "Où voulez vous créer le tiroir \"AmigaWorld\"? ")
  108.     (set confirmDir "D'accord pour créer le tiroir de suite et commencer l'installation?")
  109.     (set asklha (cat "\"lha\" sera utilisé pour extraire les fichiers compressés. "
  110.                      "Etes vous d'accord pour copier ce programme dans le tiroir "
  111.                      "AmigaWorld pour accélérer ?"))
  112.     (set unpackmain "Extraction du program.");???
  113.     (set asklng1 "Quelle langue utiliserez-vous la plupart du temps?")
  114.     (set askcont (cat "Les descriptions de continents ne sont pas disponibles dans "
  115.                       "cette langue. Veuillez choisir une autre langue pour ces "
  116.                       "textes. "))
  117.     (set asklng2a "Quelles autres langues autre que ")
  118.     (set asklng2b " désirez-vous pouvoir utiliser?")
  119.     (set copydata "Copie des données des pays et de l'interface.")
  120.     (set unpackdata "Extraction des données des pays et de l'interface.")
  121.     (set askdesc "Voulez-vous installer une description en anglais de chaque pays?")
  122.     (set unpackdesc "Extraction des descriptions des pays.")
  123.     (set askflags "Voulez-vous installer les drapeaux?")
  124.     (set unpackflags "Extraction des drapeaux.")
  125.     (set askmaps "Voulez-vous installer les cartes?")
  126.     (set unpackmaps "Extraction des cartes.")
  127.     (set askdox "Quelle(s) documentation(s) desirez-vous installer?")
  128.     (set askdvi (cat "Voulez-vous que soit installée une version DVI de la "
  129.                 " documentation (pour utilisateurs de TeX )?"))
  130.     (set copydox (cat "Vous pouvez exclure quelques fichiers de l'installation, "
  131.                       "si vous voulez:"))
  132.     (set unpackdox "Extraction des fichiers de documentation.")
  133.     (set askfont (cat "Voulez vous copier la police \"FarawayEyes\" dans votre "
  134.                        " tiroir FONTS: ?"))
  135.     (set askguido "Enfin:  Voulez vous installer une photo du Dr. Guido Alfani?")
  136.     (set askdelete (cat "Etes vous d'accord pour enlever \"lha\" du "
  137.                         "tiroir AmigaWorld maintenant?"))
  138.     (set errormsg "Au secours! Grosse Panique!  Installation stoppée.")
  139.     (set defLng 3)
  140.     (set defDox 4)
  141. ) )
  142.  
  143. (set AWmother
  144.      (askdir
  145.           (prompt askwhere)
  146.           (help @askdir-help)
  147.           (default "WORK:")
  148.      )
  149. )
  150.  
  151. (set AWdir (tackon AWmother "AmigaWorld"))
  152. (makedir AWdir (infos) (prompt confirmDir) (help @makedir-help) (confirm))
  153. (set @default-dest AWdir)
  154. (complete 1)
  155.  
  156. (copyfiles (source "")
  157.            (choices "AmigaWorld" "aw.coord") (infos)
  158.            (prompt unpackmain)
  159.            (help @copyfiles-help)
  160.            (dest AWdir)
  161. )
  162.  
  163. (set AWlng1
  164.      (askchoice
  165.           (prompt asklng1)
  166.           (help @askchoice-help)
  167.           (choices "Dansk"
  168.                    "Deutsch"
  169.                    "English"
  170.                    "Français"
  171.                    "Italiano"
  172.                    "Nederlands"
  173.                    "Norsk"
  174.                    "Svenska"
  175.                    "Suomi" )
  176.           (default defLng)
  177.      )
  178. )
  179.  
  180. (if (= AWlng1 0) (set name "Dansk") )
  181. (if (= AWlng1 1) (set name "Deutsch") )
  182. (if (= AWlng1 2) (set name "English") )
  183. (if (= AWlng1 3) (set name "Français") )
  184. (if (= AWlng1 4) (set name "Italiano") )
  185. (if (= AWlng1 5) (set name "Nederlands") )
  186. (if (= AWlng1 6) (set name "Norsk") )
  187. (if (= AWlng1 7) (set name "Svenska") )
  188. (if (= AWlng1 8) (set name "Suomi") )
  189.  
  190. (set AWlng (tackon AWdir "aw.lng"))
  191. (if (= @pretend 1) (set AWlng "aw.lng"))
  192.  
  193. (textfile (dest AWlng) (append "AW-Languages\n"))
  194. (textfile (dest AWlng) (include AWlng) (append (cat name "\n")))
  195.  
  196.  
  197. (copyfiles (source name)
  198.            (pattern "aw.#?")
  199.            (prompt unpackdata)
  200.            (help @copyfiles-help)
  201.            (dest AWdir)
  202. )
  203. (complete 20)
  204.  
  205. (if (OR (= name "Dansk") (= name "Suomi"))
  206.     ((set AWlng1cont
  207.           (askchoice
  208.                (prompt askcont)
  209.                (help @askchoice-help)
  210.                (choices "Deutsch"
  211.                         "English"
  212.                         "Français"
  213.                         "Italiano"
  214.                         "Nederlands"
  215.                         "Norsk"
  216.                         "Svenska" )
  217.                (default 6) ))
  218.  
  219.      (if (= AWlng1cont 0) (copyfiles (source "Deutsch") (choices "aw.cont")
  220.                                      (prompt unpackdata) (help @copyfiles-help)
  221.                                      (dest AWdir) ) )
  222.      (if (= AWlng1cont 1) (copyfiles (source "English") (choices "aw.cont")
  223.                                      (prompt unpackdata) (help @copyfiles-help)
  224.                                      (dest AWdir) ) )
  225.      (if (= AWlng1cont 2) (copyfiles (source "Français") (choices "aw.cont")
  226.                                      (prompt unpackdata) (help @copyfiles-help)
  227.                                      (dest AWdir) ) )
  228.      (if (= AWlng1cont 3) (copyfiles (source "Italiano") (choices "aw.cont")
  229.                                      (prompt unpackdata) (help @copyfiles-help)
  230.                                      (dest AWdir) ) )
  231.      (if (= AWlng1cont 4) (copyfiles (source "Nederlands") (choices "aw.cont")
  232.                                      (prompt unpackdata) (help @copyfiles-help)
  233.                                      (dest AWdir) ) )
  234.      (if (= AWlng1cont 5) (copyfiles (source "Norsk") (choices "aw.cont")
  235.                                      (prompt unpackdata) (help @copyfiles-help)
  236.                                      (dest AWdir) ) )
  237.      (if (= AWlng1cont 6) (copyfiles (source "Svenska") (choices "aw.cont")
  238.                                      (prompt unpackdata) (help @copyfiles-help)
  239.                                      (dest AWdir) ) )
  240.  
  241. ))
  242. (complete 25)
  243.  
  244. (set AWlng2
  245.      (askoptions
  246.           (prompt (cat asklng2a name asklng2b))
  247.           (help @askoptions-help)
  248.           (choices "Dansk"
  249.                    "Deutsch"
  250.                    "English"
  251.                    "Français"
  252.                    "Italiano"
  253.                    "Nederlands"
  254.                    "Norsk"
  255.                    "Svenska"
  256.                    "Suomi" )
  257.           (default 0)
  258.      )
  259. )
  260.  
  261. (if (AND (IN AWlng2 1) (NOT (= AWlng1 1)))
  262.      ((set subdir (tackon AWdir "Deutsch"))
  263.       (makedir subdir)
  264.       (copyfiles (source "Deutsch") (pattern "aw.#?") (prompt unpackdata)
  265.                  (help @copyfiles-help) (dest subdir))
  266.       (textfile (dest AWlng) (include AWlng) (append "Deutsch\n")))
  267. )
  268.  
  269. (if (AND (IN AWlng2 2) (NOT (= AWlng1 2)))
  270.      ((set subdir (tackon AWdir "English"))
  271.       (makedir subdir)
  272.       (copyfiles (source "English") (pattern "aw.#?") (prompt unpackdata)
  273.                  (help @copyfiles-help) (dest subdir))
  274.       (textfile (dest AWlng) (include AWlng) (append "English\n")))
  275. )
  276.  
  277. (if (AND (IN AWlng2 3) (NOT (= AWlng1 3)))
  278.      ((set subdir (tackon AWdir "Français"))
  279.       (makedir subdir)
  280.       (copyfiles (source "Français") (pattern "aw.#?") (prompt unpackdata)
  281.                  (help @copyfiles-help) (dest subdir))
  282.       (textfile (dest AWlng) (include AWlng) (append "Français\n")))
  283. )
  284.  
  285. (if (AND (IN AWlng2 4) (NOT (= AWlng1 4)))
  286.      ((set subdir (tackon AWdir "Italiano"))
  287.       (makedir subdir)
  288.       (copyfiles (source "Italiano") (pattern "aw.#?") (prompt unpackdata)
  289.                  (help @copyfiles-help) (dest subdir))
  290.       (textfile (dest AWlng) (include AWlng) (append "Italiano\n")))
  291. )
  292.  
  293. (if (AND (IN AWlng2 5) (NOT (= AWlng1 5)))
  294.      ((set subdir (tackon AWdir "Nederlands"))
  295.       (makedir subdir)
  296.       (copyfiles (source "Nederlands") (pattern "aw.#?") (prompt unpackdata)
  297.                  (help @copyfiles-help) (dest subdir))
  298.       (textfile (dest AWlng) (include AWlng) (append "Nederlands\n")))
  299. )
  300.  
  301. (if (AND (IN AWlng2 7) (NOT (= AWlng1 7)))
  302.      ((set subdir (tackon AWdir "Svenska"))
  303.       (makedir subdir)
  304.       (copyfiles (source "Svenska") (pattern "aw.#?") (prompt unpackdata)
  305.                  (help @copyfiles-help) (dest subdir))
  306.       (textfile (dest AWlng) (include AWlng) (append "Svenska\n")))
  307. )
  308.  
  309. (if (AND (IN AWlng2 0) (NOT (= AWlng1 0)))
  310.      ((set subdir (tackon AWdir "Dansk"))
  311.       (makedir subdir)
  312.       (copyfiles (source "Dansk") (pattern "aw.#?") (prompt unpackdata)
  313.                  (help @copyfiles-help) (dest subdir))
  314.       (textfile (dest AWlng) (include AWlng) (append "Dansk\n")))
  315. )
  316.  
  317. (if (AND (IN AWlng2 6) (NOT (= AWlng1 6)))
  318.      ((set subdir (tackon AWdir "Norsk"))
  319.       (makedir subdir)
  320.       (copyfiles (source "Norsk") (pattern "aw.#?") (prompt unpackdata)
  321.                  (help @copyfiles-help) (dest subdir))
  322.       (textfile (dest AWlng) (include AWlng) (append "Norsk\n")))
  323. )
  324.  
  325. (if (AND (IN AWlng2 8) (NOT (= AWlng1 8)))
  326.      ((set subdir (tackon AWdir "Suomi"))
  327.       (makedir subdir)
  328.       (copyfiles (source "Suomi") (pattern "aw.#?") (prompt unpackdata)
  329.                  (help @copyfiles-help) (dest subdir))
  330.       (textfile (dest AWlng) (include AWlng) (append "Suomi\n")))
  331. )
  332.  
  333. (textfile (dest AWlng) (include AWlng) (append "#\n"))
  334. (complete 50)
  335.  
  336.  
  337. (if (= (askbool (prompt askflags)
  338.              (help @askbool-help)
  339.              (default 1)) 1)
  340.    ((set subdir (tackon AWdir "flags"))
  341.     (makedir subdir)
  342.     (copyfiles (source "flags") (pattern "???") (prompt unpackflags)
  343.                (help @copyfiles-help) (dest subdir))
  344. ))
  345. (complete 60)
  346.  
  347. (if (= (askbool (prompt askmaps)
  348.                 (help @askbool-help)
  349.                 (default 1)) 1)
  350.    ((set subdir (tackon AWdir "maps"))
  351.     (makedir subdir)
  352.     (copyfiles (source "maps") (pattern "?.iff") (prompt unpackmaps)
  353.                (help @copyfiles-help) (dest subdir))
  354. ))
  355. (complete 67)
  356.  
  357. (if (askbool (prompt askdesc)
  358.              (help @askbool-help)
  359.              (default 1))
  360.    ((set subdir (tackon AWdir "text"))
  361.     (makedir subdir)
  362.     (copyfiles (source "text") (pattern "???") (prompt unpackdesc)
  363.                (help @copyfiles-help) (dest subdir))
  364. ))
  365. (complete 80)
  366.  
  367.  
  368. (set AWdoc
  369.      (askoptions
  370.           (prompt askdox)
  371.           (help @askchoice-help)
  372.           (choices "Deutsch (v 5.16)"
  373.                    "English (v 5.16)"
  374.                    "Français (v 5.1)"
  375.                    "Svenska (v 4.4)")
  376.           (default defDox)
  377.      )
  378. )
  379.  
  380. (set dvi "false")
  381. (if (OR (IN AWdoc 0) (IN AWdoc 1))
  382.    ((copyfiles (source ("iff")
  383.                (pattern "#?.iff")
  384.                (prompt copydox)
  385.                (help @copyfiles-help)
  386.                (dest (tackon AWdir "iff")))
  387.     (if (askbool (prompt askdvi)
  388.                  (help @askbool-help)
  389.                  (default 0))
  390.         (set dvi "true"))
  391. )))
  392.  
  393.  
  394. (if (IN AWdoc 0)
  395.    ((makedir (tackon AWdir "Deutsch") (infos))
  396.     (copyfiles (source "Deutsch")
  397.                (prompt copydox)
  398.                (help @copyfiles-help)
  399.                (confirm)
  400.                (choices "Dokumentation"
  401.                         "Dokumentation.asc"
  402.                         "BriefVonBo"
  403.                         "Entwicklung"
  404.                         "Einschränkungen") (infos)
  405.                (dest (tackon AWdir "Deutsch")))
  406.      (if (= dvi "true")
  407.        (copyfiles (source "Deutsch")
  408.                   (prompt copydox)
  409.                   (help @copyfiles-help)
  410.                   (confirm)
  411.                   (pattern "#?.dvi") (infos)
  412.                   (dest (tackon AWdir "Deutsch"))))
  413.      )
  414. )
  415. (complete 85)
  416.  
  417. (if (IN AWdoc 1)
  418.    ((makedir (tackon AWdir "English") (infos))
  419.     (copyfiles (source "English")
  420.               (prompt copydox)
  421.               (help @copyfiles-help)
  422.               (confirm)
  423.               (choices "Documentation"
  424.                        "Documentation.asc"
  425.                        "LetterFromBo"
  426.                        "History"
  427.                        "Limitations") (infos)
  428.                (dest (tackon AWdir "English")))
  429.      (if (= dvi "true")
  430.        (copyfiles (source "English")
  431.                   (prompt copydox)
  432.                   (help @copyfiles-help)
  433.                   (confirm)
  434.                   (pattern "#?.dvi") (infos)
  435.                   (dest (tackon AWdir "English"))))
  436.      )
  437. )
  438. (complete 90)
  439.  
  440. (if (IN AWdoc 2)
  441.    ((makedir (tackon AWdir "Français") (infos))
  442.     (copyfiles (source "Français")
  443.                (choices "Documentation"
  444.                         "Documentation.asc"
  445.                         "Historique"
  446.                         "Limitations") (infos)
  447.                (prompt copydox)
  448.                (help @copyfiles-help)
  449.                (confirm)
  450.                (dest (tackon AWdir "Français")))
  451.     )
  452. )
  453. (complete 93)
  454.  
  455. (if (IN AWdoc 3)
  456.    ((makedir (tackon AWdir "Svenska") (infos))
  457.     (copyfiles (source "Svenska")
  458.                (choices "Dokumentation"
  459.                         "BrevFrånBo") (infos)
  460.                (prompt copydox)
  461.                (help @copyfiles-help)
  462.                (confirm)
  463.                (dest (tackon AWdir "Svenska")))
  464.     )
  465. )
  466. (complete 95)
  467.  
  468. (if (askbool (prompt askfont)
  469.              (help @askbool-help)
  470.              (default 1))
  471.      (copyfiles (source "Fonts") (all)
  472.                 (dest "Fonts:"))
  473. )
  474. (complete 99)
  475.  
  476. (if (askbool (prompt askguido)
  477.              (help @askbool-help)
  478.              (default 1))
  479.      (copyfiles (source "Italiano") (pattern "Guido.jpg") (infos) (dest AWdir))
  480. )
  481. (complete 100)
  482.